library(ggplot2)
library(patchwork)10 Pakiet patchwork
Grzegorz Kończak
10.1 📘 Załadowanie pakietów i charakterystyka zbioru ‘mtcars’
10.1.1 ❕ Załadowanie pakietów
10.1.2 ️✔️️ Dla konstrukcji wykresów w tej części wykorzystano dostępny w R zbiór mtcars.
10.1.3 Wyświetlenie informacji o zbiorze mtcars
summary(mtcars) mpg cyl disp hp
Min. :10.40 Min. :4.000 Min. : 71.1 Min. : 52.0
1st Qu.:15.43 1st Qu.:4.000 1st Qu.:120.8 1st Qu.: 96.5
Median :19.20 Median :6.000 Median :196.3 Median :123.0
Mean :20.09 Mean :6.188 Mean :230.7 Mean :146.7
3rd Qu.:22.80 3rd Qu.:8.000 3rd Qu.:326.0 3rd Qu.:180.0
Max. :33.90 Max. :8.000 Max. :472.0 Max. :335.0
drat wt qsec vs
Min. :2.760 Min. :1.513 Min. :14.50 Min. :0.0000
1st Qu.:3.080 1st Qu.:2.581 1st Qu.:16.89 1st Qu.:0.0000
Median :3.695 Median :3.325 Median :17.71 Median :0.0000
Mean :3.597 Mean :3.217 Mean :17.85 Mean :0.4375
3rd Qu.:3.920 3rd Qu.:3.610 3rd Qu.:18.90 3rd Qu.:1.0000
Max. :4.930 Max. :5.424 Max. :22.90 Max. :1.0000
am gear carb
Min. :0.0000 Min. :3.000 Min. :1.000
1st Qu.:0.0000 1st Qu.:3.000 1st Qu.:2.000
Median :0.0000 Median :4.000 Median :2.000
Mean :0.4062 Mean :3.688 Mean :2.812
3rd Qu.:1.0000 3rd Qu.:4.000 3rd Qu.:4.000
Max. :1.0000 Max. :5.000 Max. :8.000 10.2 📘 Przygotowanie wykresów
10.2.1 Konstrukcja wykresu rozrzutu
ggplot(mtcars,aes(wt, mpg)) + geom_point()
10.2.2 Konstrukcja wykresu rozrzutu - inna forma
ggplot(mtcars) + geom_point(aes(wt, mpg))
10.3 📘 Obiekty graficzne, ich wyświetlanie i rozmieszczanie
10.3.1 Konstrukcja obiektów p1 i p2
p1 <- ggplot(mtcars) + geom_point(aes(wt, mpg))
p2 <- ggplot(mtcars) + geom_boxplot(aes(factor(cyl), mpg, fill = factor(gear)))10.3.2 Wyświetlenie obiektu p1
p1
10.3.3 Wyświetlenie obiektu p2
p2
10.4 📘 Pakiet patchwork - podstawowe zastosowania
10.4.1 Wyświetlenie obiektów p1 i p2 obok siebie
p1 + p2
10.4.2 Wyświetlenie obiektów p1 i p2 obok siebie (inny sposób)
p1|p2
10.4.3 Wyświetlenie obiektów p1 (u góry) i p2 (na dole)
p1/p2
10.4.4 Konstrukcja obiektów p3 i p4
p3 <- ggplot(mtcars) + geom_smooth(aes(wt, mpg))
p4 <- ggplot(mtcars) + geom_bar(aes(factor(cyl),fill=factor(gear)))10.4.5 Wyświetlenie obiektu p3
p3 `geom_smooth()` using method = 'loess' and formula = 'y ~ x'
10.4.6 Wyświetlenie obiektu p4
p4 
10.4.7 Wyświetlenie obiektów p1 (u góry) oraz p2 i p3 (na dole)
p1 / (p2 | p3)`geom_smooth()` using method = 'loess' and formula = 'y ~ x'
10.4.8 Wyświetlenie obiektów p1, p2, p3 i p4
(p1 | p2 | p3) /
p4`geom_smooth()` using method = 'loess' and formula = 'y ~ x'
10.4.9 Wyświetlenie obiektów p1, p2, p3 i p4
p1+p2+p3+p4`geom_smooth()` using method = 'loess' and formula = 'y ~ x'
10.4.10 Wyświetlenie obiektów p1, p2, p3 i p4 w jednym wierszu
p1| p2| p3| p4`geom_smooth()` using method = 'loess' and formula = 'y ~ x'
10.5 📘 Pakiet patchwork - układ użytkownika
10.5.1 Wyświetlenie obiektów p1, p2, p3 i p4
wrap_plots(p1, p2, p3, p4)`geom_smooth()` using method = 'loess' and formula = 'y ~ x'
10.5.2 Wyświetlenie obiektów p1 i p2
p1+p2
10.5.3 Wyświetlenie obiektów p1 i p2 wraz z dodanymi punktami na wykresach
p1 + p2 + geom_jitter(aes(factor(cyl), mpg))
10.5.4 Konstrukcja obiektu rys i wyświetlenie wykresów p3, p1 i p2
rys <- p3 + p2
p1 + rys`geom_smooth()` using method = 'loess' and formula = 'y ~ x'
10.5.5 Wyświetlenie wykresów p3, p1 i p2
wrap_plots(rys, p3)`geom_smooth()` using method = 'loess' and formula = 'y ~ x'
`geom_smooth()` using method = 'loess' and formula = 'y ~ x'
10.5.6 Wprowadzenie wolnego obszaru pomidzy wykresami (spacer)
p1 + p2 + plot_spacer() +p3 `geom_smooth()` using method = 'loess' and formula = 'y ~ x'
10.5.7 Wprowadzenie wolnego obszaru pomidzy wykresami (spacer)
p1 + p2 / plot_spacer() +p3 `geom_smooth()` using method = 'loess' and formula = 'y ~ x'
10.5.8 Wprowadzenie wolnych obszarów pomidzy wykresami (spacer)
p1 + plot_spacer() + p2 + plot_spacer() + p3 + plot_spacer()`geom_smooth()` using method = 'loess' and formula = 'y ~ x'
10.5.9 Zadanie liczby kolumn dla tablicy wykresów
p1 + p2 + p3 + p4 +
plot_layout(ncol = 3)`geom_smooth()` using method = 'loess' and formula = 'y ~ x'
10.5.10 Zadanie szerokości kolumn dla tablicy wykresów
p1 + p2 + p3 + p4 +
plot_layout(widths = c(2, 1))`geom_smooth()` using method = 'loess' and formula = 'y ~ x'
10.5.11 Zadanie szerokości kolumn i wysokości dla tablicy wykresów
p1 + p2 + p3 + p4 +
plot_layout(widths = c(2, 1), heights = c(5, 1))`geom_smooth()` using method = 'loess' and formula = 'y ~ x'
10.5.12 Umieszczanie wykresów zgodnie z zadanym wzorcem - określenie wzorca
layout <- '
A#B
#C#
D#E
'10.5.13 Umieszczanie wykresów zgodnie z zadanym wzorcem - wstawienie wykresów
wrap_plots(D = p1, C = p2, B = p3, design = layout)`geom_smooth()` using method = 'loess' and formula = 'y ~ x'
10.5.14 Wstawianie wykresu w obszarze innego wykresu
p1 + inset_element(p2, left = 0.55, bottom = 0.55, right = 1, top = 1)
10.6 📘 Dodanie obszaru z tekstem
10.6.1 ❕ Załadowanie biblioteki
library(grid)10.6.2 Wprowadzenie tekstu
p1 + grid::textGrob('Tekst w oknie obok wykresu. ')
10.7 📘 Tabela z danymi obok wykresu
10.7.1 ❕ Załadowanie dodatkowych bibliotek
library(gridGraphics)
library(gridExtra)10.7.2 Umieszczenie tabeli obok wykresu
p1 + gridExtra::tableGrob(mtcars[1:10, c('mpg', 'disp')])
10.7.3 Umieszczenie tabeli obok wykresu
p1 + tableGrob(mtcars[1:10, c('mpg', 'disp','hp','wt')])
10.7.4 Dodanie klasycznego wykresu
p1 + ~plot(mtcars$mpg, mtcars$disp, main = 'Wykres 2')